(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     52153,       1338]
NotebookOptionsPosition[     40250,       1096]
NotebookOutlinePosition[     40983,       1121]
CellTagsIndexPosition[     40903,       1116]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"94185c43-f715-4ea7-bff0-1573e8528adf"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"37bc49b9-4a28-4144-9f1f-c893fc52fe64"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"15b98863-86c5-4b02-9626-04bbb4c99659"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"91919b91-4139-4d03-84df-1a11062636f8"]
}], "History",
 CellChangeTimes->{{3.8243893341685085`*^9, 3.824389334342046*^9}},
 CellID->1247902091,ExpressionUUID->"094689a8-618e-4104-ac9f-ee04ee95cda8"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"da7d3af8-d5dd-4dfe-a4e6-da867c63a990"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"605a92ce-418f-4ceb-877f-94f1d0cc2743"],

Cell["RefpropLink Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->97440126,ExpressionUUID->"1675e111-a6d0-4db3-9221-cdbddf70c758"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->158462354,ExpressionUUID->"fd51ad62-e27b-4d09-81a3-b6cd284f178b"],

Cell["RefpropLink/ref/sath", "Categorization",
 CellLabel->"URI",
 CellID->416912434,ExpressionUUID->"4b94a903-b604-4b81-9872-52b41ac18389"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"e4d3f9d9-d7d2-4ae5-9316-7fce012c7efe"],

Cell["Saturation", "Keywords",
 CellChangeTimes->{{3.8243894128620567`*^9, 3.8243894148258038`*^9}},
 CellID->1164421360,ExpressionUUID->"36cb2650-5875-45bc-83f5-27c53611a1c0"],

Cell["VLE", "Keywords",
 CellChangeTimes->{{3.8243894128620567`*^9, 3.824389416482371*^9}},
 CellID->52613499,ExpressionUUID->"a7521b4a-1aa0-4a70-b24b-32fbf5c34968"],

Cell["Equilibrium", "Keywords",
 CellChangeTimes->{{3.8243894128620567`*^9, 3.82438942029016*^9}},
 CellID->176118466,ExpressionUUID->"8b207fbc-074e-46a8-86a0-4ba8f54ce7ab"],

Cell["phase boundary", "Keywords",
 CellChangeTimes->{{3.8243894128620567`*^9, 3.824389437882106*^9}},
 CellID->741835946,ExpressionUUID->"0c100c9a-0af6-44e7-a7b7-3723e6ccf54d"],

Cell["enthalpy", "Keywords",
 CellChangeTimes->{{3.8243894128620567`*^9, 3.8243894401141367`*^9}},
 CellID->1281101,ExpressionUUID->"e2e6e9fb-b9b1-4319-b77a-3710b10e182c"],

Cell["bubble point", "Keywords",
 CellChangeTimes->{{3.8243894128620567`*^9, 3.824389447930231*^9}},
 CellID->253542294,ExpressionUUID->"b4307b91-a757-4417-b84d-b9edc1193aa3"],

Cell["dew point", "Keywords",
 CellChangeTimes->{{3.8243894128620567`*^9, 3.8243894499109335`*^9}},
 CellID->205489439,ExpressionUUID->"d5ff3d94-7950-4d0a-a876-821cb8fc3169"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"2bd61de2-6bda-49fc-b1c1-bdc306d4739c"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"8cdbe163-f21c-45ec-aa7c-084db09dd178"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"951a19fa-f659-417d-aee0-5558f73ec0ef"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"7a0904cd-dc1c-4290-8aeb-307c73626f34"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"9b449247-5d96-4acb-a706-345ce06c8cb0"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"ba97dbc5-ee63-4fba-acda-82ea63385556"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.824389607534339*^9, 3.8243896107687106`*^9}},
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"0453a855-8359-4aa4-8a4b-6daf99caba24"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.824389614378034*^9, 3.8243896158541207`*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"ff22887d-618a-4d10-b3bf-ae9ae00354f6"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8243896192699776`*^9, 3.82438962178223*^9}},
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"100d84c0-41b5-477b-9114-4ee87ac4d7b0"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"31f296dc-6a0f-4e8a-8d80-1f171749c551"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"51bc0137-9863-4a7c-8a8a-2b64664505fa"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"de961099-6a61-423e-bd60-df8cf2f807cd"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"e894c08e-d7e4-4dbe-94cb-740ebb5dc872"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"bc5b9d3f-29a7-48eb-9540-67ef2f7386a9"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"853859d0-97aa-4750-8bf3-130ac2208816"]
}, Closed]],

Cell[CellGroupData[{

Cell["sath", "ObjectName",
 CellID->1224892054,ExpressionUUID->"bf6b04d7-ff74-42bf-bbf6-ad160fa6bb47"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"3dbc1813-df94-4dda-9fd1-c9ed69d8206e"],
 Cell[BoxData[
  RowBox[{"sath", "[", 
   RowBox[{
    StyleBox["h", "TI"], ",", 
    StyleBox["z", "TI"], ",", 
    StyleBox["kph", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "c82a823c-f025-420e-9afd-18c7a0976745"],
 "\[LineSeparator]Iterate for temperature, pressure, and density given \
enthalpy along the saturation boundary and the bulk composition. "
}], "Usage",
 CellChangeTimes->{
  3.82438926839746*^9, 3.8243896748881855`*^9, {3.8244089445245247`*^9, 
   3.8244089451408787`*^9}},ExpressionUUID->"29208125-948e-4c07-9427-\
5b913e66c3a8"],

Cell["\<\
Iterate for temperature, pressure, and density given enthalpy along the \
saturation boundary and the bulk composition.\
\>", "Notes",
 CellChangeTimes->{
  3.8243933689474382`*^9, {3.8244089305329485`*^9, 3.8244089498692393`*^9}},
 CellID->831644014,ExpressionUUID->"febd033a-7fc0-4ee4-a1f7-cc3a2005051f"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["h", "TI"]], "InlineFormula",ExpressionUUID->
  "9a6aaef2-aa78-4aae-b462-19c9c02853da"],
 " is the molar enthalpy in [J/mol].  If passed as a ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "d07eaa59-b088-44ea-ab64-3bad07df235c"],
 ", it can have any system of units attached as long as it is in energy per \
mole per absolute temperature unit."
}], "Notes",
 CellChangeTimes->{{3.824393392956252*^9, 3.824393428795391*^9}, {
   3.8243934594753323`*^9, 3.8243934986076355`*^9}, 3.824393703906522*^9, {
   3.8244089740345654`*^9, 3.824409023396549*^9}},
 CellID->107485276,ExpressionUUID->"79e82fe6-a4dc-457f-840c-63ed5212b63c"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "d9bf0a1d-f62d-41c6-9f43-7bd8108178ed"],
 " is the molar composition.  For pure fluids, this is a single element List \
of {1.0}.  This is the default value and z can be omitted from the parameter \
list in this case.  Form mixtures, z must be passed as an ",
 StyleBox["nc",
  FontSlant->"Italic"],
 "-element List, where ",
 StyleBox["nc",
  FontSlant->"Italic"],
 " is the number of components in the mixture.  For example, a 40% mixture of \
methanol in water would have a water/methanol mole fraction list of, ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "2624ae36-d8c6-4073-b9ed-fd34b6460f86"],
 " = {0.6, 0.4}."
}], "Notes",
 CellChangeTimes->{{3.8243935120786047`*^9, 3.824393754616887*^9}},
 CellID->204548867,ExpressionUUID->"ed004307-bfe6-43e7-af9b-5ddfa8faad97"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "557b5046-99d0-4496-9202-5ced94f55187"],
 " is a flag that is set to the desired roots.  The legal values are:"
}], "Notes",
 CellChangeTimes->{
  3.824389667174818*^9, 3.8243937622783947`*^9, {3.8243942639785275`*^9, 
   3.8243942751546335`*^9}, {3.824394405346409*^9, 3.82439441631507*^9}},
 CellID->1067943069,ExpressionUUID->"952449b1-a4d2-416d-88b2-92dbbe4dadae"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "fa400029-7dd4-4ea1-8529-dad5ccbdb9a1"], 
    StyleBox[
     RowBox[{"kph", " ", "Value"}],
     FontWeight->"Bold",
     FontVariations->{"Underline"->True}], Cell[TextData[StyleBox[
    "Definition                                                               \
                               ",
     FontWeight->"Bold",
     FontVariations->{"Underline"->True}]], "TableText",ExpressionUUID->
     "b66cc818-7f1e-44c4-b886-5ae3261bcce5"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "92214dd3-94e5-4553-b298-65718fdc85eb"], "0", Cell[
    "Return all roots along the liquid-vapor line (default)", "TableText",
     ExpressionUUID->"99fef253-0bbf-468e-95f0-f61e764bb465"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "b386b313-0c9b-4f11-aeec-e691bb8f0827"], "1", Cell[TextData[{
     "Return only ",
     StyleBox["liquid",
      FontWeight->"Bold",
      FontSlant->"Italic"],
     " VLE root"
    }], "TableText",ExpressionUUID->"996431ad-adb4-4a0f-aadb-cdfb7737d308"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "e0e0c7b7-0d4e-4a40-8eb4-71114c6f04cc"], "2", Cell[TextData[{
     "Return only ",
     StyleBox["vapor",
      FontWeight->"Bold",
      FontSlant->"Italic"],
     " VLE roots"
    }], "TableText",ExpressionUUID->"56aebd8e-6c40-4ec5-ba9a-c3d495ebe755"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "f4374565-a353-47db-ab69-16ae452c9e55"], "3", Cell[TextData[{
     "Return liquid SLE root (",
     StyleBox["melting line",
      FontWeight->"Bold",
      FontSlant->"Italic"],
     ")"
    }], "TableText",ExpressionUUID->"eb801f48-90d9-4e09-a5f9-335fc0df4fca"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "8b29475a-10e8-47b5-9973-a86e0a0a6c8f"], "4", Cell[TextData[{
     "Return vapor SVE root (",
     StyleBox["sublimation line",
      FontWeight->"Bold",
      FontSlant->"Italic"],
     ")"
    }], "TableText",ExpressionUUID->"e38865c2-04fa-4c5b-82c2-d0e3dfb51ed7"]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.8243944429238815`*^9, 3.8243944547871685`*^9}, {
  3.824394577618603*^9, 3.8243946503959465`*^9}, {3.8243947066823964`*^9, 
  3.824394740143897*^9}},
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.05], 
     Scaled[0.15], {
      Scaled[0.8]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->96557464,ExpressionUUID->"d9ff1e37-b438-49e3-b24f-e0f2b06bcdb2"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "d8126643-4051-4ab7-98fb-0775ba82392f"],
 " is omitted, it will be set to the default value of 0.  ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "49d9d6a8-aabc-42be-b182-747a0762bdb2"],
 " values of 3 or 4 presently only work for pure components."
}], "Notes",
 CellChangeTimes->{
  3.824389667174818*^9, 3.8243937622783947`*^9, {3.8243942639785275`*^9, 
   3.8243942751546335`*^9}, {3.824394405346409*^9, 3.824394414641548*^9}, {
   3.8243946662655296`*^9, 3.82439469280954*^9}, {3.82439474578584*^9, 
   3.824394792300394*^9}},
 CellID->46382279,ExpressionUUID->"5ec1b52c-73be-449d-b514-b373a63f3cc1"],

Cell[TextData[{
 "The return values are ",
 Cell[BoxData[
  StyleBox["nroot", "TI"]], "InlineFormula",ExpressionUUID->
  "d04c6ff6-f374-4377-98ed-f53daf3cb473"],
 ", ",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "8ab71b1d-c9dd-4ea6-b1c1-acd1ac3c9b3c"],
 ", ",
 Cell[BoxData[
  StyleBox["T1", "TI"]], "InlineFormula",ExpressionUUID->
  "70c614a7-245c-4613-95a4-3ee4bdd2aef4"],
 ", ",
 Cell[BoxData[
  StyleBox["P1", "TI"]], "InlineFormula",ExpressionUUID->
  "762b90dc-db7d-4cb7-b3d3-13bfd2f85dbf"],
 ", ",
 Cell[BoxData[
  StyleBox["D1", "TI"]], "InlineFormula",ExpressionUUID->
  "a80c82e5-8801-4734-824a-7e8e921d487a"],
 ", ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "d97ceee6-8d7a-40a7-8c04-24163577bf4d"],
 ", ",
 Cell[BoxData[
  StyleBox["T2", "TI"]], "InlineFormula",ExpressionUUID->
  "7f684e30-8bbf-4fa7-b1ad-1aa7f728bf58"],
 ", ",
 Cell[BoxData[
  StyleBox["P2", "TI"]], "InlineFormula",ExpressionUUID->
  "1ba78da0-4cf6-448b-a719-0198ef559323"],
 ", and ",
 Cell[BoxData[
  StyleBox["D2", "TI"]], "InlineFormula",ExpressionUUID->
  "9c497ab9-ee7a-4ec1-8b0d-61eb7693043d"],
 ".  If ",
 Cell[BoxData[
  StyleBox["h", "TI"]], "InlineFormula",ExpressionUUID->
  "30abc513-e290-4a2c-a8eb-9ac0926ed951"],
 " is passed as a unit ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "4f482bfc-4701-4e54-942d-6a8668a53d1c"],
 ", then the temperature, pressure, and density at each root will be returned \
as a unit ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "2fc78642-5341-4a1f-b51e-e2742ff6fa39"],
 " as well.  If passed as a non-",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "d113a9d3-4fcd-498e-9ef3-00945f7e960c"],
 ", the return values will be non-",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "a6ada106-a75a-4c84-aecd-a904e1a0a488"],
 " values as well in the default REFPROP system of units.  The return values \
will ",
 StyleBox["always",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " be returned in a ruled list, so that each value and its units can be \
clearly identified."
}], "Notes",
 CellChangeTimes->{{3.8243938941955843`*^9, 3.8243942353540883`*^9}, 
   3.824408857066448*^9, {3.824717042779623*^9, 3.8247170639211597`*^9}},
 CellID->671492069,ExpressionUUID->"5df3c9fc-e648-4fad-8ab4-7f0b958afb08"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["nroot", "TI"]], "InlineFormula",ExpressionUUID->
  "354c30d4-11a2-4974-86bc-559f40f725fc"],
 " is returned as the number of roots found.  It is always ",
 StyleBox["1",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " for ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "c2f57763-630a-4972-b9e2-6710ca34e62c"],
 " values of 1, 3, and 4 if ",
 Cell[BoxData[
  StyleBox["ierr", "TI"]], "InlineFormula",ExpressionUUID->
  "3a7500bf-1c4e-4e43-b2fc-7a7c0d882d62"],
 " = 0."
}], "Notes",
 CellChangeTimes->{{3.8243943048990746`*^9, 3.824394379045727*^9}},
 CellID->496784536,ExpressionUUID->"b3eabe65-e141-45a2-86d2-9dfd2fa58979"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "cdd0b11f-8c0c-421b-a502-e189745abfbd"],
 " and ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "27f44c49-5356-40a6-94c6-88be5ac46747"],
 " indicate the phase of each root found, following convention in the kph \
table above."
}], "Notes",
 CellChangeTimes->{{3.8247173481877427`*^9, 3.8247174191410275`*^9}},
 CellID->479508069,ExpressionUUID->"b71fcd24-7aa2-4858-9322-e24fe7fb33c6"],

Cell[TextData[{
 "The second root is always set as the root in the vapor at temperatures \
below the maximum enthalpy on the vapor saturation line. If ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "ef3637f9-e924-401a-9cd5-92ce8fc5fff2"],
 " is set to 2, and only one root is found in the vapor (this occurs when ",
 Cell[BoxData[
  StyleBox["h", "TI"]], "InlineFormula",ExpressionUUID->
  "70be071d-d06f-495f-bb4e-63927f69290a"],
 " < ",
 Cell[BoxData[
  StyleBox["Hcrit", "TI"]], "InlineFormula",ExpressionUUID->
  "6d1e90cf-c76c-481a-9934-f453961b9823"],
 ") the state point will be placed in ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "372be909-15c4-4217-aa45-0029f0166444"],
 ", ",
 Cell[BoxData[
  StyleBox["T2", "TI"]], "InlineFormula",ExpressionUUID->
  "464015c0-4df7-4488-be36-cff093cc4954"],
 ", ",
 Cell[BoxData[
  StyleBox["P2", "TI"]], "InlineFormula",ExpressionUUID->
  "a146b050-0cf7-4383-8a6e-3b8d847e77ea"],
 ", ",
 Cell[BoxData[
  StyleBox["D2", "TI"]], "InlineFormula",ExpressionUUID->
  "41f5807e-76ed-4147-ad98-7ad7c17b14aa"],
 ". If kph=0 and this situation occurred, the first root (",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "a2d7ee64-55f2-4e73-8781-7513a70faa30"],
 ", ",
 Cell[BoxData[
  StyleBox["T1", "TI"]], "InlineFormula",ExpressionUUID->
  "69d2e7af-aad5-4b23-bb2d-fc5c1cd52e28"],
 ", ",
 Cell[BoxData[
  StyleBox["P1", "TI"]], "InlineFormula",ExpressionUUID->
  "24a91928-d6f2-4ce0-b82f-8633814075b7"],
 ", ",
 Cell[BoxData[
  StyleBox["D1", "TI"]], "InlineFormula",ExpressionUUID->
  "5dc76c14-2853-40c5-a56e-7add412f07f7"],
 ") would be in the liquid (",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "13f48580-e5b1-4df6-a531-77e0c421cf65"],
 "=1, ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "b8f79d96-4564-4783-9ed8-65e1c3cad1da"],
 "=2)."
}], "Notes",
 CellChangeTimes->{{3.824393339478259*^9, 3.824393351258786*^9}, {
  3.8243938202344093`*^9, 3.824393885061985*^9}, {3.8243948440669384`*^9, 
  3.824394880254144*^9}, {3.8244086234213514`*^9, 3.8244087132580643`*^9}, {
  3.824408831856876*^9, 3.824408833944265*^9}, {3.8244091014058957`*^9, 
  3.824409105261572*^9}, {3.824409143332773*^9, 3.824409156789778*^9}, {
  3.82471746269358*^9, 3.8247174714132943`*^9}},
 CellID->13712501,ExpressionUUID->"0aa14cbe-77e8-4c1c-a5c4-2c5c61b65fe8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"d60c5f08-00cc-40c3-823e-baaf1c130cda"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.829558303402691*^9}, {
  3.829558341260483*^9, 3.8295583414499683`*^9}},
 CellID->341631938,ExpressionUUID->"490be32f-d621-45b6-99ec-241dd0d4de3d"],

Cell[TextData[ButtonBox["Mixtures (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/MixturesLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.8295583216578856`*^9}, {
  3.829558353292308*^9, 3.8295583534847927`*^9}},
 CellID->339404089,ExpressionUUID->"0bf848ee-c667-42fa-8cb7-191b07eaf8b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"2cf6dabe-6d9d-4d9a-bc77-2120af7fd2a4"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"4ccb5cf1-0b28-4778-a9c5-c32b5d65ad57"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"6f36f609-c769-4a47-abf6-e0493d88fa81"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"b4274fce-8c51-47b5-88c8-b80e4403f603"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"d23f8c9a-23af-4bd6-9613-076f33f3a5ab"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["sats",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/sats"]], "InlineFormula",
  ExpressionUUID->"25272acd-2504-409b-a11d-84e699c89b28"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["satt",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/satt"]], "InlineFormula",
  ExpressionUUID->"f9831f2f-ffe1-43a7-b662-ad826fe34927"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["satp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/satp"]], "InlineFormula",
  ExpressionUUID->"604baa54-c14f-4852-9e4a-0007ec1c0f24"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["therm",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/therm"]], "InlineFormula",
  ExpressionUUID->"3b87296c-2fef-4ba5-8206-06015a7d6310"]
}], "SeeAlso",
 CellChangeTimes->{{3.8247156248914895`*^9, 3.8247156359310036`*^9}},
 CellID->929782353,ExpressionUUID->"ac089400-ba08-40b9-8b04-267701cc7546"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"33f3f7f6-3630-4afc-9681-39e9ec1cc177"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"71f9632e-3c27-4132-8477-0643d8ef7e37"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"6f67ad8c-98b4-4bf2-8402-598180cee185"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Pure Fluids", "ExampleSubsection",ExpressionUUID->
   "8f9665a8-d390-4eac-9222-6d0692b6d335"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.818818756158816*^9, 3.818818758015851*^9}},
 CellID->70916644,ExpressionUUID->"3e738b69-b34a-4a72-bb17-56f92fa7255a"],

Cell["Load a pure fluid file using setup.", "ExampleText",
 CellChangeTimes->{{3.8188187705034294`*^9, 3.8188187889102397`*^9}},
 CellID->541852276,ExpressionUUID->"e6b583e0-9411-4362-beb1-fbac1a795325"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ierr", "=", 
  RowBox[{"setup", "[", 
   RowBox[{"{", "\"\<Water\>\"", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8188187948832483`*^9, 3.8188188137692227`*^9}},
 CellLabel->"In[1]:=",
 CellID->810243786,ExpressionUUID->"d8dfd8b5-0f8f-4e97-a439-4ae133128fdf"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.818818816281536*^9, 3.81882035483996*^9, 
  3.818820471122165*^9, 3.8188205526950746`*^9, 3.8189085561871862`*^9, 
  3.824715956610566*^9, 3.82471661015126*^9},
 CellLabel->"Out[1]=",
 CellID->314457768,ExpressionUUID->"f5506b83-f671-4e05-b95f-a308d221911f"]
}, Open  ]],

Cell["Set a saturation pressure.", "ExampleText",
 CellChangeTimes->{{3.8188188473264933`*^9, 3.8188188637824917`*^9}, {
  3.818908510436492*^9, 3.818908513171219*^9}},
 CellID->262208212,ExpressionUUID->"e0349f4b-094c-45b4-8d45-d71b54aafc3b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["P", "sat"], "=", 
   RowBox[{"1.0", "MPa"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.81881886662792*^9, 3.818818894352872*^9}, {
  3.8189085169401016`*^9, 3.8189085477896404`*^9}, {3.824715945587043*^9, 
  3.824715949763872*^9}},
 CellLabel->"In[14]:=",
 CellID->356756438,ExpressionUUID->"26832098-7053-45a8-b45d-3a46e77f1cf4"],

Cell["\<\
Get the saturation pressure as well as the bubble and dew point molar \
densities.\
\>", "ExampleText",
 CellChangeTimes->{{3.8188189157755613`*^9, 3.81881900567849*^9}},
 CellID->80879702,ExpressionUUID->"29aed5da-27cd-4b75-9cba-9445b6f2f184"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"satp", "[", 
  SubscriptBox["P", "sat"], "]"}]], "Input",
 CellChangeTimes->{{3.8188189053135643`*^9, 3.8188189080133457`*^9}, {
  3.8188190127665405`*^9, 3.818819020469969*^9}, {3.8189085223426557`*^9, 
  3.8189085274759593`*^9}, {3.8247159749575124`*^9, 3.8247159776922007`*^9}},
 CellLabel->"In[15]:=",
 CellID->181233377,ExpressionUUID->"86db56fb-3003-4423-b65f-41ba8b38e287"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Tsat\"\>", "\[Rule]", 
    TemplateBox[{"453.0280078816967`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dliq\"\>", "\[Rule]", 
    TemplateBox[{"49.243190052838486`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dvap\"\>", "\[Rule]", 
    TemplateBox[{"0.28559335225811316`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"xliq\"\>", "\[Rule]", 
    RowBox[{"{", "1.`", "}"}]}], ",", 
   RowBox[{"\<\"xvap\"\>", "\[Rule]", 
    RowBox[{"{", "1.`", "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.818819024936027*^9, 3.818819081744127*^9, 3.818820363315297*^9, 
   3.818820479546666*^9, 3.818820561248217*^9, 3.818908565108343*^9, {
   3.824715965823903*^9, 3.824715978905984*^9}, 3.8247166164015465`*^9, 
   3.824717115047077*^9},
 CellLabel->"Out[15]=",
 CellID->141115327,ExpressionUUID->"b169c51d-eb08-4e32-ae53-82784524e7ed"]
}, Open  ]],

Cell["\<\
Set up functions to extract the saturation temperature as well as the liquid \
and vapor density as a function of pressure.\
\>", "ExampleText",
 CellChangeTimes->{{3.8188213059350233`*^9, 3.8188213514064236`*^9}, {
   3.8189085999880686`*^9, 3.8189086027396894`*^9}, {3.8189086673798795`*^9, 
   3.8189086772754087`*^9}, 3.8247160901306257`*^9},
 CellID->164614660,ExpressionUUID->"86a1561f-1368-47f9-933c-3a03415697c5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["T", "sat"], "[", "P_", "]"}], ":=", 
   RowBox[{
    RowBox[{"satp", "[", "P", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["D", "liq"], "[", "P_", "]"}], ":=", 
   RowBox[{
    RowBox[{"satp", "[", "P", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["D", "vap"], "[", "P_", "]"}], ":=", 
   RowBox[{
    RowBox[{"satp", "[", "P", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8188213571720076`*^9, 3.8188214496539717`*^9}, {
  3.8188217258244085`*^9, 3.8188217305178576`*^9}, {3.8189085807724743`*^9, 
  3.8189086218924685`*^9}, {3.8189086959484777`*^9, 3.8189087380678563`*^9}},
 CellLabel->"In[16]:=",
 CellID->17501697,ExpressionUUID->"80b488c2-5d67-4b3a-ade8-e6c85a192668"],

Cell["\<\
Then call therm to get the other saturated liquid and saturated vapor \
Enthalpies @ Psat\
\>", "ExampleText",
 CellChangeTimes->{{3.8188214631508293`*^9, 3.8188214966702013`*^9}, {
   3.818821795580917*^9, 3.818821819397507*^9}, {3.818908755795455*^9, 
   3.818908756213335*^9}, {3.824716035099737*^9, 3.824716036986721*^9}, 
   3.8247181959410524`*^9},
 CellID->21808457,ExpressionUUID->"96dd5205-2c8e-4c97-a823-28d343d8adf5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["H", "satL"], "=", 
  RowBox[{
   RowBox[{"therm", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["T", "sat"], "[", 
      SubscriptBox["P", "sat"], "]"}], ",", 
     RowBox[{
      SubscriptBox["D", "liq"], "[", 
      SubscriptBox["P", "sat"], "]"}]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"3", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8188215066425357`*^9, 3.8188215301257467`*^9}, {
   3.8189087619719396`*^9, 3.818908783060549*^9}, {3.824716064651721*^9, 
   3.824716075595487*^9}, {3.8247161111723337`*^9, 3.8247161277958856`*^9}, 
   3.824716692187909*^9},
 CellLabel->"In[19]:=",
 CellID->20515876,ExpressionUUID->"abc61cb0-1b27-43f1-883d-32d590c75afd"],

Cell[BoxData[
 TemplateBox[{"13736.913336071164`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}], 
   "joules per mole", 
   FractionBox["\"Joules\"", "\"Moles\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.8188215345748196`*^9, 3.81882174409758*^9, 3.818908789189133*^9, {
   3.8247160507050114`*^9, 3.824716078881673*^9}, 3.8247161398117905`*^9, 
   3.824716624976647*^9, 3.8247166988989983`*^9, 3.8247171299532223`*^9},
 CellLabel->"Out[19]=",
 CellID->1635006,ExpressionUUID->"41757d24-3e9c-445d-9990-db0d82a339ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["H", "satV"], "=", 
  RowBox[{
   RowBox[{"therm", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["T", "sat"], "[", 
      SubscriptBox["P", "sat"], "]"}], ",", 
     RowBox[{
      SubscriptBox["D", "vap"], "[", 
      SubscriptBox["P", "sat"], "]"}]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"3", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.824716744454187*^9, 3.8247167752109566`*^9}},
 CellLabel->"In[20]:=",
 CellID->383319768,ExpressionUUID->"52fd195d-38f9-4fea-b2b2-69b7947ab48c"],

Cell[BoxData[
 TemplateBox[{"50030.35576721334`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}], 
   "joules per mole", 
   FractionBox["\"Joules\"", "\"Moles\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8247167905649023`*^9, 3.824717133104826*^9},
 CellLabel->"Out[20]=",
 CellID->552161665,ExpressionUUID->"b0513943-3e24-4e48-9dc2-3bdf06d54099"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a755c6c7-ee8c-4ee8-8f53-d8d3c2f7be85"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->760276980,ExpressionUUID->"a7cc6fa1-3416-424a-9227-149eb3f02755"],

Cell[TextData[{
 "Now, get the saturated liquid properties based on the reverse function \
using ",
 Cell[BoxData[
  SubscriptBox["H", "sat"]],
  FormatType->"StandardForm",ExpressionUUID->
  "2513c029-3855-47d3-bda2-f4d6f76e56bf"],
 ".  Omit ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "99e6b13b-1484-4c27-ad97-cf73a23e210c"],
 " (for pure fluids) and pass 1 for ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "2eea0b1f-df5c-410b-a37c-b0f2741d437e"],
 " to get the saturated liquid properties."
}], "ExampleText",
 CellChangeTimes->{{3.824716194228293*^9, 3.8247162385228543`*^9}, {
  3.8247163090034027`*^9, 3.824716373723366*^9}, {3.8247189050521836`*^9, 
  3.824718920190703*^9}},
 CellID->64920817,ExpressionUUID->"420a82e5-5638-4f5d-a65d-c4616fcf0edc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sath", "[", 
  RowBox[{
   SubscriptBox["H", "satL"], ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.824716244856888*^9, 3.8247162637553864`*^9}, {
  3.824716380715657*^9, 3.8247163831551065`*^9}, {3.8247164375875654`*^9, 
  3.824716440493795*^9}, {3.8247168186368413`*^9, 3.8247168264349885`*^9}},
 CellLabel->"In[21]:=",
 CellID->28090098,ExpressionUUID->"a072d37e-8aae-4c65-bed5-dd39b54a6071"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"nroot\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"k1\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"T1 [K]\"\>", "\[Rule]", 
    TemplateBox[{"453.02800782006045`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"P1 [kPa]\"\>", "\[Rule]", 
    TemplateBox[{
     "999.9999985806672`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D1 [mol/L]\"\>", "\[Rule]", 
    TemplateBox[{"49.243190053751995`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"k2\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"T2 [K]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"P2 [kPa]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D2 [mol/L]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8247163849582853`*^9, 3.8247164422032237`*^9, 
  3.824716634674722*^9, 3.82471683131993*^9, 3.824717136216509*^9},
 CellLabel->"Out[21]=",
 CellID->256728922,ExpressionUUID->"a980a976-9242-4d19-b056-131c73f2e29c"]
}, Open  ]],

Cell[TextData[{
 "Note: There is only one root (",
 Cell[BoxData[
  StyleBox["nroot", "TI"]], "InlineFormula",ExpressionUUID->
  "d4495172-23db-41f5-9505-7d3239515c0e"],
 " = 1) and it is returned in the first set of values with ",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "52aa1505-b497-4003-aee7-9b2f703a6b88"],
 " = 1 indicating the saturated liquid phase.  The second set of values \
return zeroes, with ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "fdfd1c35-b1c0-4bcf-b92f-c5a139e718bd"],
 " = 0, since there is no second root.  Temperature and pressure values, as \
well as the liquid phase density, match the ",
 Cell[BoxData[
  ButtonBox["satp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Satp"]], "InlineFormula",
  ExpressionUUID->"7197471b-5bc2-4d4b-a828-f3712bf92c66"],
 " values exactly."
}], "ExampleText",
 CellChangeTimes->{{3.824717157956383*^9, 3.824717181067593*^9}, {
   3.824717551099202*^9, 3.8247176421467934`*^9}, {3.8247177404798813`*^9, 
   3.824717758525586*^9}, {3.8247178047869205`*^9, 3.8247179301796455`*^9}, 
   3.8247191538859453`*^9},
 CellID->538030233,ExpressionUUID->"24d9c093-cde1-437c-aa07-49bb5e856a5c"],

Cell[TextData[{
 "Also, get the saturated vapor properties using ",
 Cell[BoxData[
  SubscriptBox["H", "satV"]],
  FormatType->"StandardForm",ExpressionUUID->
  "cc140c5b-bf42-401e-a8fa-5e402fb6041f"],
 ", remembering to call ",
 Cell[BoxData[
 "sath"], "InlineFormula",ExpressionUUID->
  "fec83141-8d6b-494a-acd3-965a075da4a4"],
 " with kph = 2."
}], "ExampleText",
 CellChangeTimes->{{3.8247168497326946`*^9, 3.824716924115878*^9}, 
   3.824717765694445*^9},
 CellID->227111197,ExpressionUUID->"0f0f5b6e-45ef-4e84-b5db-cc0f9573b64a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sath", "[", 
  RowBox[{
   SubscriptBox["H", "satV"], ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.824716839048233*^9, 3.8247168421549625`*^9}, {
  3.8247169395885153`*^9, 3.8247169460512276`*^9}},
 CellLabel->"In[22]:=",
 CellID->25193501,ExpressionUUID->"b09c301d-2c8a-4c18-9190-e22e0c388484"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"nroot\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"k1\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"T1 [K]\"\>", "\[Rule]", 
    TemplateBox[{"555.485289734969`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"P1 [kPa]\"\>", "\[Rule]", 
    TemplateBox[{
     "6645.675304517228`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D1 [mol/L]\"\>", "\[Rule]", 
    TemplateBox[{"1.9135732762187305`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"k2\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"T2 [K]\"\>", "\[Rule]", 
    TemplateBox[{"453.0279931679084`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"P2 [kPa]\"\>", "\[Rule]", 
    TemplateBox[{
     "999.9996613889374`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D2 [mol/L]\"\>", "\[Rule]", 
    TemplateBox[{"0.28559332919191144`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.824716948518629*^9, 3.82471714024271*^9},
 CellLabel->"Out[22]=",
 CellID->651869280,ExpressionUUID->"e342b5c5-a616-4908-be3d-ae3747fac059"]
}, Open  ]],

Cell[TextData[{
 "Note: Now there are two roots (",
 Cell[BoxData[
  StyleBox["nroot", "TI"]], "InlineFormula",ExpressionUUID->
  "f2ce1186-7dd8-44c6-9b5f-097042d97d3c"],
 " = 2) with the first being a spurious root in the liquid phase (",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "12ff956b-dfbb-487a-b21f-b7cf04abd1e1"],
 " = 1) and the second being the requested root in the saturated vapor phase \
(",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "77fff95c-fbae-4364-a551-5bf2dd98024e"],
 " = 2). Temperature and pressure values, as well as the vapor phase density, \
in the second root position match the ",
 Cell[BoxData[
  ButtonBox["satp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Satp"]], "InlineFormula",
  ExpressionUUID->"48a4904b-26eb-41c6-ba68-e5a58a6e3614"],
 " values exactly."
}], "ExampleText",
 CellChangeTimes->{{3.8247176586995306`*^9, 3.8247176682918854`*^9}, {
  3.824717713514963*^9, 3.8247177195478315`*^9}, {3.8247177814523144`*^9, 
  3.8247177846687183`*^9}, {3.8247179406825633`*^9, 3.824718054196054*^9}, {
  3.8247197727711277`*^9, 3.824719776845234*^9}, {3.8247198487150984`*^9, 
  3.8247198626837487`*^9}},
 CellID->158249221,ExpressionUUID->"1162e486-cba1-4a61-a4c6-294a1b2954d1"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"7501b833-3172-49cf-abfe-88f591ddab4e"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "e5824d35-f255-410d-b5a6-72bfc22273bd"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"bfa55617-4a15-4f5d-9594-654b4ba2a72c"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "27ef8b0d-b92a-49ec-bf36-7bc7a57f3c2f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"39e23046-de82-437f-884a-03bcda83c8b9"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "d45485a1-651b-4e90-87d6-442a7b889e72"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"8ebb0905-9beb-4419-80fa-afeef6071b21"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "adc7d839-55ed-4473-bef3-aebeb1554a0c"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"2356df86-644a-41a2-a979-592e30b228d2"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "eba7d6c7-3a7b-41fa-99fb-3f837668511d"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"eb7dba5f-5390-4e94-ab64-432bea36c1b5"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "4a197671-a782-4835-8ca5-b954a32ba95e"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"2f100e7b-ffb9-4de1-9cb6-62c6dc83881b"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "f92c5197-0cbf-4156-8d45-911f6706f7b1"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"b57c1ec7-2f6d-4435-86e2-f515c0f91e63"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "b9d606d9-bb2d-4c5c-b41d-b3cf584847e5"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"fd6ce0fc-6723-4a1d-a56c-489277b2ebcf"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "f68059a7-1742-4649-aa11-e612df1afa80"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"4f71ded2-fdb4-4e2a-95a2-83d12e1b2d83"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "536029f5-74bc-4755-aed2-c354203f82e8"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"7541fe51-8626-40de-a452-dd9600a0a409"]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{-936, Automatic}, {Automatic, 13}},
CellContext->"Global`",
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"090836ba-f8a8-4742-9401-b4ae37f3a135"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[37505, 1018, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"7501b833-3172-49cf-abfe-88f591ddab4e",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 40708, 1109}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 668, 15, 22, "History",ExpressionUUID->"094689a8-618e-4104-ac9f-ee04ee95cda8",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1251, 39, 123, 1, 27, "CategorizationSection",ExpressionUUID->"da7d3af8-d5dd-4dfe-a4e6-da867c63a990",
 CellID->1122911449],
Cell[1377, 42, 134, 2, 31, "Categorization",ExpressionUUID->"605a92ce-418f-4ceb-877f-94f1d0cc2743",
 CellID->686433507],
Cell[1514, 46, 146, 2, 31, "Categorization",ExpressionUUID->"1675e111-a6d0-4db3-9221-cdbddf70c758",
 CellID->97440126],
Cell[1663, 50, 136, 2, 31, "Categorization",ExpressionUUID->"fd51ad62-e27b-4d09-81a3-b6cd284f178b",
 CellID->158462354],
Cell[1802, 54, 140, 2, 31, "Categorization",ExpressionUUID->"4b94a903-b604-4b81-9872-52b41ac18389",
 CellID->416912434]
}, Closed]],
Cell[CellGroupData[{
Cell[1979, 61, 110, 1, 17, "KeywordsSection",ExpressionUUID->"e4d3f9d9-d7d2-4ae5-9316-7fce012c7efe",
 CellID->477174294],
Cell[2092, 64, 176, 2, 17, "Keywords",ExpressionUUID->"36cb2650-5875-45bc-83f5-27c53611a1c0",
 CellID->1164421360],
Cell[2271, 68, 165, 2, 17, "Keywords",ExpressionUUID->"a7521b4a-1aa0-4a70-b24b-32fbf5c34968",
 CellID->52613499],
Cell[2439, 72, 173, 2, 17, "Keywords",ExpressionUUID->"8b207fbc-074e-46a8-86a0-4ba8f54ce7ab",
 CellID->176118466],
Cell[2615, 76, 177, 2, 17, "Keywords",ExpressionUUID->"0c100c9a-0af6-44e7-a7b7-3723e6ccf54d",
 CellID->741835946],
Cell[2795, 80, 171, 2, 17, "Keywords",ExpressionUUID->"e2e6e9fb-b9b1-4319-b77a-3710b10e182c",
 CellID->1281101],
Cell[2969, 84, 175, 2, 17, "Keywords",ExpressionUUID->"b4307b91-a757-4417-b84d-b9edc1193aa3",
 CellID->253542294],
Cell[3147, 88, 174, 2, 17, "Keywords",ExpressionUUID->"d5ff3d94-7950-4d0a-a876-821cb8fc3169",
 CellID->205489439]
}, Closed]],
Cell[CellGroupData[{
Cell[3358, 95, 120, 1, 17, "TemplatesSection",ExpressionUUID->"2bd61de2-6bda-49fc-b1c1-bdc306d4739c",
 CellID->1872225408],
Cell[3481, 98, 149, 2, 70, "Template",ExpressionUUID->"8cdbe163-f21c-45ec-aa7c-084db09dd178",
 CellID->1562036412],
Cell[3633, 102, 137, 2, 70, "Template",ExpressionUUID->"951a19fa-f659-417d-aee0-5558f73ec0ef",
 CellID->158391909],
Cell[3773, 106, 136, 2, 70, "Template",ExpressionUUID->"7a0904cd-dc1c-4290-8aeb-307c73626f34",
 CellID->1360575930],
Cell[3912, 110, 137, 2, 70, "Template",ExpressionUUID->"9b449247-5d96-4acb-a706-345ce06c8cb0",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[4086, 117, 108, 1, 17, "DetailsSection",ExpressionUUID->"ba97dbc5-ee63-4fba-acda-82ea63385556",
 CellID->307771771],
Cell[4197, 120, 200, 3, 31, "Details",ExpressionUUID->"0453a855-8359-4aa4-8a4b-6daf99caba24",
 CellID->670882175],
Cell[4400, 125, 200, 3, 31, "Details",ExpressionUUID->"ff22887d-618a-4d10-b3bf-ae9ae00354f6",
 CellID->350963985],
Cell[4603, 130, 194, 3, 31, "Details",ExpressionUUID->"100d84c0-41b5-477b-9114-4ee87ac4d7b0",
 CellID->8391405],
Cell[4800, 135, 124, 2, 31, "Details",ExpressionUUID->"31f296dc-6a0f-4e8a-8d80-1f171749c551",
 CellID->3610269],
Cell[4927, 139, 116, 2, 31, "Details",ExpressionUUID->"51bc0137-9863-4a7c-8a8a-2b64664505fa",
 CellID->401364205],
Cell[5046, 143, 116, 2, 31, "Details",ExpressionUUID->"de961099-6a61-423e-bd60-df8cf2f807cd",
 CellID->350204745],
Cell[5165, 147, 118, 2, 31, "Details",ExpressionUUID->"e894c08e-d7e4-4dbe-94cb-740ebb5dc872",
 CellID->732958810],
Cell[5286, 151, 133, 2, 31, "Details",ExpressionUUID->"bc5b9d3f-29a7-48eb-9540-67ef2f7386a9",
 CellID->222905350],
Cell[5422, 155, 122, 2, 31, "Details",ExpressionUUID->"853859d0-97aa-4750-8bf3-130ac2208816",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[5581, 162, 102, 1, 62, "ObjectName",ExpressionUUID->"bf6b04d7-ff74-42bf-bbf6-ad160fa6bb47",
 CellID->1224892054],
Cell[5686, 165, 653, 15, 86, "Usage",ExpressionUUID->"29208125-948e-4c07-9427-5b913e66c3a8"],
Cell[6342, 182, 316, 6, 37, "Notes",ExpressionUUID->"febd033a-7fc0-4ee4-a1f7-cc3a2005051f",
 CellID->831644014],
Cell[6661, 190, 722, 15, 39, "Notes",ExpressionUUID->"79e82fe6-a4dc-457f-840c-63ed5212b63c",
 CellID->107485276],
Cell[7386, 207, 896, 20, 69, "Notes",ExpressionUUID->"ed004307-bfe6-43e7-af9b-5ddfa8faad97",
 CellID->204548867],
Cell[8285, 229, 460, 9, 25, "Notes",ExpressionUUID->"952449b1-a4d2-416d-88b2-92dbbe4dadae",
 CellID->1067943069],
Cell[8748, 240, 2461, 57, 100, "2ColumnTableMod",ExpressionUUID->"d9ff1e37-b438-49e3-b24f-e0f2b06bcdb2",
 CellID->96557464],
Cell[11212, 299, 736, 16, 39, "Notes",ExpressionUUID->"5ec1b52c-73be-449d-b514-b373a63f3cc1",
 CellID->46382279],
Cell[11951, 317, 2502, 72, 83, "Notes",ExpressionUUID->"5df3c9fc-e648-4fad-8ab4-7f0b958afb08",
 CellID->671492069],
Cell[14456, 391, 698, 19, 25, "Notes",ExpressionUUID->"b3eabe65-e141-45a2-86d2-9dfd2fa58979",
 CellID->496784536],
Cell[15157, 412, 505, 12, 25, "Notes",ExpressionUUID->"b71fcd24-7aa2-4858-9322-e24fe7fb33c6",
 CellID->479508069],
Cell[15665, 426, 2442, 62, 71, "Notes",ExpressionUUID->"0aa14cbe-77e8-4c1c-a5c4-2c5c61b65fe8",
 CellID->13712501]
}, Open  ]],
Cell[CellGroupData[{
Cell[18144, 493, 112, 1, 44, "TutorialsSection",ExpressionUUID->"d60c5f08-00cc-40c3-823e-baaf1c130cda",
 CellID->250839057],
Cell[18259, 496, 342, 5, 16, "Tutorials",ExpressionUUID->"490be32f-d621-45b6-99ec-241dd0d4de3d",
 CellID->341631938],
Cell[18604, 503, 339, 5, 16, "Tutorials",ExpressionUUID->"0bf848ee-c667-42fa-8cb7-191b07eaf8b7",
 CellID->339404089]
}, Open  ]],
Cell[CellGroupData[{
Cell[18980, 513, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"2cf6dabe-6d9d-4d9a-bc77-2120af7fd2a4",
 CellID->1268215905],
Cell[19121, 516, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"4ccb5cf1-0b28-4778-a9c5-c32b5d65ad57",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[19271, 522, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"6f36f609-c769-4a47-abf6-e0493d88fa81",
 CellID->1584193535],
Cell[19394, 525, 104, 1, 16, "RelatedLinks",ExpressionUUID->"b4274fce-8c51-47b5-88c8-b80e4403f603",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[19535, 531, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"d23f8c9a-23af-4bd6-9613-076f33f3a5ab",
 CellID->1255426704],
Cell[19648, 534, 990, 26, 18, "SeeAlso",ExpressionUUID->"ac089400-ba08-40b9-8b04-267701cc7546",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[20675, 565, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"33f3f7f6-3630-4afc-9681-39e9ec1cc177",
 CellID->38303248],
Cell[20790, 568, 101, 1, 16, "MoreAbout",ExpressionUUID->"71f9632e-3c27-4132-8477-0643d8ef7e37",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[20928, 574, 411, 11, 68, "PrimaryExamplesSection",ExpressionUUID->"6f67ad8c-98b4-4bf2-8402-598180cee185",
 CellID->880084151],
Cell[CellGroupData[{
Cell[21364, 589, 318, 6, 22, "ExampleSubsection",ExpressionUUID->"3e738b69-b34a-4a72-bb17-56f92fa7255a",
 CellID->70916644],
Cell[21685, 597, 203, 2, 20, "ExampleText",ExpressionUUID->"e6b583e0-9411-4362-beb1-fbac1a795325",
 CellID->541852276],
Cell[CellGroupData[{
Cell[21913, 603, 288, 6, 25, "Input",ExpressionUUID->"d8dfd8b5-0f8f-4e97-a439-4ae133128fdf",
 CellID->810243786],
Cell[22204, 611, 308, 5, 24, "Output",ExpressionUUID->"f5506b83-f671-4e05-b95f-a308d221911f",
 CellID->314457768]
}, Open  ]],
Cell[22527, 619, 243, 3, 20, "ExampleText",ExpressionUUID->"e0349f4b-094c-45b4-8d45-d71b54aafc3b",
 CellID->262208212],
Cell[22773, 624, 381, 9, 25, "Input",ExpressionUUID->"26832098-7053-45a8-b45d-3a46e77f1cf4",
 CellID->356756438],
Cell[23157, 635, 254, 5, 20, "ExampleText",ExpressionUUID->"29aed5da-27cd-4b75-9cba-9445b6f2f184",
 CellID->80879702],
Cell[CellGroupData[{
Cell[23436, 644, 404, 7, 25, "Input",ExpressionUUID->"86db56fb-3003-4423-b65f-41ba8b38e287",
 CellID->181233377],
Cell[23843, 653, 1262, 30, 66, "Output",ExpressionUUID->"b169c51d-eb08-4e32-ae53-82784524e7ed",
 CellID->141115327]
}, Open  ]],
Cell[25120, 686, 431, 7, 33, "ExampleText",ExpressionUUID->"86a1561f-1368-47f9-933c-3a03415697c5",
 CellID->164614660],
Cell[25554, 695, 1039, 29, 66, "Input",ExpressionUUID->"80b488c2-5d67-4b3a-ade8-e6c85a192668",
 CellID->17501697],
Cell[26596, 726, 438, 8, 20, "ExampleText",ExpressionUUID->"96dd5205-2c8e-4c97-a823-28d343d8adf5",
 CellID->21808457],
Cell[CellGroupData[{
Cell[27059, 738, 729, 19, 28, "Input",ExpressionUUID->"abc61cb0-1b27-43f1-883d-32d590c75afd",
 CellID->20515876],
Cell[27791, 759, 571, 12, 34, "Output",ExpressionUUID->"41757d24-3e9c-445d-9990-db0d82a339ca",
 CellID->1635006]
}, Open  ]],
Cell[CellGroupData[{
Cell[28399, 776, 550, 16, 28, "Input",ExpressionUUID->"52fd195d-38f9-4fea-b2b2-69b7947ab48c",
 CellID->383319768],
Cell[28952, 794, 398, 9, 34, "Output",ExpressionUUID->"b0513943-3e24-4e48-9dc2-3bdf06d54099",
 CellID->552161665]
}, Open  ]],
Cell[CellGroupData[{
Cell[29387, 808, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"a7cc6fa1-3416-424a-9227-149eb3f02755",
 CellID->760276980],
Cell[29632, 815, 823, 20, 39, "ExampleText",ExpressionUUID->"420a82e5-5638-4f5d-a65d-c4616fcf0edc",
 CellID->64920817],
Cell[CellGroupData[{
Cell[30480, 839, 424, 8, 25, "Input",ExpressionUUID->"a072d37e-8aae-4c65-bed5-dd39b54a6071",
 CellID->28090098],
Cell[30907, 849, 1557, 36, 93, "Output",ExpressionUUID->"a980a976-9242-4d19-b056-131c73f2e29c",
 CellID->256728922]
}, Open  ]],
Cell[32479, 888, 1228, 27, 67, "ExampleText",ExpressionUUID->"24d9c093-cde1-437c-aa07-49bb5e856a5c",
 CellID->538030233],
Cell[33710, 917, 535, 14, 22, "ExampleText",ExpressionUUID->"0f0f5b6e-45ef-4e84-b5db-cc0f9573b64a",
 CellID->227111197],
Cell[CellGroupData[{
Cell[34270, 935, 325, 7, 25, "Input",ExpressionUUID->"b09c301d-2c8a-4c18-9190-e22e0c388484",
 CellID->25193501],
Cell[34598, 944, 1535, 36, 93, "Output",ExpressionUUID->"e342b5c5-a616-4908-be3d-ae3747fac059",
 CellID->651869280]
}, Open  ]],
Cell[36148, 983, 1296, 28, 67, "ExampleText",ExpressionUUID->"1162e486-cba1-4a61-a4c6-294a1b2954d1",
 CellID->158249221]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37505, 1018, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"7501b833-3172-49cf-abfe-88f591ddab4e",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[37663, 1022, 242, 5, 31, "ExampleSection",ExpressionUUID->"bfa55617-4a15-4f5d-9594-654b4ba2a72c",
 CellID->1293636265],
Cell[37908, 1029, 265, 5, 19, "ExampleSection",ExpressionUUID->"39e23046-de82-437f-884a-03bcda83c8b9",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[38198, 1038, 244, 5, 19, "ExampleSection",ExpressionUUID->"8ebb0905-9beb-4419-80fa-afeef6071b21",
 CellID->2061341341],
Cell[38445, 1045, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"2356df86-644a-41a2-a979-592e30b228d2",
 CellID->1757724783],
Cell[38695, 1052, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"eb7dba5f-5390-4e94-ab64-432bea36c1b5",
 CellID->1295379749]
}, Closed]],
Cell[38957, 1060, 248, 5, 19, "ExampleSection",ExpressionUUID->"2f100e7b-ffb9-4de1-9cb6-62c6dc83881b",
 CellID->258228157],
Cell[39208, 1067, 259, 5, 19, "ExampleSection",ExpressionUUID->"b57c1ec7-2f6d-4435-86e2-f515c0f91e63",
 CellID->2123667759],
Cell[39470, 1074, 252, 5, 19, "ExampleSection",ExpressionUUID->"fd6ce0fc-6723-4a1d-a56c-489277b2ebcf",
 CellID->1305812373],
Cell[39725, 1081, 257, 5, 19, "ExampleSection",ExpressionUUID->"4f71ded2-fdb4-4e2a-95a2-83d12e1b2d83",
 CellID->1653164318],
Cell[39985, 1088, 249, 5, 19, "ExampleSection",ExpressionUUID->"7541fe51-8626-40de-a452-dd9600a0a409",
 CellID->589267740]
}, Open  ]]
}
]
*)

